﻿Public Class clsProdInfo
    Public Function SelectProdInfo(prod_id As String) As DataTable
        Dim szSql As String = ""
        szSql &= "select * from sf.b_prod_info where prod_id = ? "
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, prod_id)
        If IsNothing(dt) Then
            SelectProdInfo = New DataTable
        Else
            SelectProdInfo = dt
        End If
    End Function
End Class
